home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / misc / xes120.lha / XES / REXX / Save.xdme < prev    next >
Text File  |  1994-11-09  |  761b  |  30 lines
  1. /* Save.xdme */
  2. /* Copyright © 1994 Fergus Duniho */
  3.  
  4. if ~show("L","rexxsupport.library") then
  5.     if ~addlib("rexxsupport.library",0,-30,0) then exit
  6.  
  7. options results
  8. address 'XDME.1'
  9. 'rxresult $method'
  10. method = result
  11. compressor = "LIBS:compressors/xpk" || method || ".library"
  12. if method = "NONE" || ~exists(compressor) then do
  13.     saveold
  14. end
  15. else do
  16.     'writeto t:temp'
  17.     'rxresult $password'
  18.     password = result
  19.     if password = 0 then
  20.         xcom = 'execute (xpack t:temp method' method || ')'
  21.     else
  22.         xcom = 'execute (xpack t:temp method' method 'password "' || password || '")'
  23.     xcom
  24.     'rxresult $filename'
  25.     fullname = '"' || result || '"'
  26.     xcom = "execute (copy t:temp" fullname || ")"
  27.     xcom
  28.     call delete("t:temp")
  29. end
  30.